home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0620.arc / RFIX.BAT < prev    next >
Encoding:
DOS Batch File  |  1988-06-20  |  8.8 KB  |  272 lines
  1. ECHO OFF
  2. CLS
  3. IF 0620 == %1 GOTO LEVELOK
  4. ECHO ' Incorrect upgrade version specified.  Please read the following before
  5. ECHO ' trying again.
  6. :ERROR1
  7. ECHO '
  8. ECHO '  This batch file should be invoked with the command
  9. ECHO '
  10. ECHO '                RFIX 0620 XXXXX (SEE NOTE)
  11. ECHO '
  12. ECHO '  "0620" is the parameter passed to this .BAT file that indicates
  13. ECHO '  this is for upgrading RBBS-PC version CPC16-1A to CPC16-1A with fixes
  14. ECHO '  up to 06/20/88.  And that you are using the .MRG files from
  15. ECHO '  RFIX0620.ARC against the unmodified source code of RBBS-PC version
  16. ECHO '  CPC16-1A.
  17. ECHO '
  18. ECHO '  NOTE:  Replace the XXXXX with one of the following:
  19. ECHO '
  20. ECHO ' QB1.00  if using the QuickBasic version 1.00 compiler (not recommended)
  21. ECHO ' QB1.02  if using the QuickBasic version 1.02 compiler (not tested)
  22. ECHO ' QB2.00  if using the QuickBasic version 2.00 compiler (not recommended)
  23. ECHO ' QB2.01  if using the QuickBasic version 2.01 compiler (recommended)
  24. ECHO ' QB3.00  if using the QuickBasic version 3.00 compiler (recommended)
  25. ECHO ' QB4.00  if using the QuickBasic version 4.00 compiler (not tested)
  26. ECHO ' IBM2.00 if using the unmodified IBM version 2.00 compiler (acceptable)
  27. ECHO '
  28. ECHO ' YOU MUST USE CAPITAL LETTERS FOR ALL RFIX.BAT PARAMETERS!
  29. ECHO '
  30. GOTO END
  31. :LEVELOK
  32. IF QB1.00 == %2 GOTO COMPILER
  33. IF QB1.02 == %2 GOTO COMPILER
  34. IF QB2.00 == %2 GOTO COMPILER
  35. IF QB2.01 == %2 GOTO COMPILER
  36. IF QB3.00 == %2 GOTO COMPILER
  37. IF QB4.00 == %2 GOTO COMPILER
  38. IF IBM2.00 == %2 GOTO COMPILER
  39. ECHO ' Incorrect compiler specified!  Read the above before trying again.
  40. GOTO ERROR1
  41. :COMPILER
  42. IF TURBO == %3 GOTO TURBO1
  43. IF COMPILE == %3 GOTO COMPILE1
  44. IF LINK == %3 GOTO TURBO5
  45. CLS
  46. ECHO '  This .BAT file is supplied to assist you in upgrading the un-modified
  47. ECHO '  CPC16-1A source code to version CPC16-1A with fixes up to 04/24/88.
  48. ECHO '  This .BAT file makes some fundamental assumptions about your
  49. ECHO '  configuration:
  50. ECHO '     1.  BLED version 1.3 dated April 12, 1986 or later is available.
  51. ECHO '     2.  1.8 MB of disk storage is available to contain all the
  52. ECHO '         files necessary to apply, compile and link the revised
  53. ECHO '         version of RBBS-PC that contains these temporary fixes.
  54. ECHO '     3.  Either the QuickBASIC (versions 1.0/1.02/2.00/2.01/3.00/4.00)
  55. ECHO '         or the unmodified IBM Version 2.0 BASIC compiler is available.
  56. ECHO '
  57. ECHO '  There is no "ASSUMED" compiler in this .BAT file.
  58. ECHO '  You have selected the use of the %2 compiler options.
  59. ECHO '
  60. ECHO '  If the above assumptions are incorrect, hit Ctrl-Break to
  61. ECHO '  terminate this batch job.  Otherwise .....
  62. pause
  63. CLS
  64. ECHO '
  65. ECHO '  The RFIX.BAT file requires access to:
  66. ECHO '  ANSI.OBJ        BDRIVEC2.OBJ  XMODEM.OBJ   RBBS-PC.BAS   RBBSDV.OBJ
  67. ECHO '  BCOMxx.LIB**    BLED.EXE      LINK.EXE**   RBBSSUB1.BAS  RBBSUTIL.OBJ
  68. ECHO ' (xx=10/20/30/40) GIVEBK30.OBJ  PC-NET.OBJ   RBBSSUB2.BAS  RBBSML.OBJ
  69. ECHO '                                QBARCV2.OBJ  RBBSSUB3.BAS  XMODEM.OBJ
  70. IF IBM2.00 == %2 GOTO IBM2
  71. IF QB3.00 == %2 GOTO QBB3
  72. IF QB4.00 == %2 GOTO QBB4
  73. ECHO '  BASCOM.EXE**   GWCOM.OBJ**   LINKFIX3.DAT RBBS-VAR.BAS  10-NET.OBJ
  74. GOTO BYPASS1
  75. :QBB3
  76. ECHO '  QB.EXE**       GWCOM.OBJ**   LINKFIX3.DAT RBBS-VAR.BAS  10-NET.OBJ
  77. GOTO BYPASS1
  78. :QBB4
  79. ECHO '  BC.EXE**                     LINKFIX4.DAT RBBS-VAR.BAS  10-NET.OBJ
  80. GOTO BYPASS1
  81. :IBM2
  82. ECHO '  BASCOM.EXE**   IBMCOM.OBJ**               RBBS-VAR.BAS  10-NET.OBJ
  83. :BYPASS1
  84. ECHO '  NOTE:  ** indicates files supplied with the BASIC compiler
  85. ECHO '
  86. ECHO '  IF access to these files is not available from the drive and/or
  87. ECHO '  the DOS subdirectory that you are running this .BAT file out of
  88. ECHO '  hit Ctrl-Break to terminate this batch file.  If access to these
  89. ECHO '  files is available to RFIX.BAT ......
  90. pause
  91. ECHO '  The following files from RFIX0620.ARC must be unarchived and put
  92. ECHO '  in the same directory as the above pre-existing files:
  93. ECHO '
  94. ECHO '    R-PC%1.MRG      Note:  The "%1" indicates that these are .MRG
  95. ECHO '    RSB2%1.MRG             files to be applied to the unmodified
  96. ECHO '    RSB3%1.MRG             source code for CPC16-1A.
  97. ECHO '    RVAR%1.BAS
  98. ECHO '
  99. ECHO '  If all of the above files are available as indicated above....
  100. pause
  101. ECHO '  The basic sequence of what is about to happen is:
  102. ECHO '
  103. ECHO '     Original CPC16-1A                 %1.MRG file to upgrade
  104. ECHO '         source code     BLED.CNFG       to CPC16-1A with fixes up to
  105. ECHO '               !             !                !      06/20/88.
  106. ECHO '              \!/           \!/              \!/
  107. ECHO '             +---------------------------------+
  108. ECHO '             !             BLED                !======+Modified BAS file
  109. ECHO '             +---------------------------------+              !
  110. ECHO '                                                             \!/
  111. ECHO '                                                   +--------------------+
  112. ECHO '                                                   !   BASIC compiler   !
  113. ECHO '                                                   +--------------------+
  114. ECHO '                                                              !
  115. ECHO '                +----------------------+                     \!/
  116. ECHO '                !         LINK         !+===========Modified OBJ file
  117. ECHO '                +----------------------+
  118. ECHO '                            !
  119. ECHO '                           \!/
  120. ECHO '                  Modified EXE file
  121. ECHO '
  122. ECHO ' If you have reviewed this .BAT file and agree to take the sole
  123. ECHO ' responsibility for what is about to happen .....
  124. PAUSE
  125. :TURBO1
  126. CLS
  127. ECHO ON
  128. RENAME RBBS-VAR.BAS RBBS-VAR.OLD
  129. COPY RVAR%1.BAS RBBS-VAR.BAS
  130. BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS  WARNR-PC
  131. CLS
  132. BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS WARNSUB2
  133. CLS
  134. BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS WARNSUB3
  135. ECHO OFF
  136. :COMPILE1
  137. IF QB2.00 == %2 GOTO QB2MAIN
  138. IF QB2.01 == %2 GOTO QB2MAIN
  139. IF QB3.00 == %2 GOTO QB2MAIN
  140. IF QB4.00 == %2 GOTO QB4MAIN
  141. IF IBM2.00 == %2 GOTO IBMMAIN
  142. ECHO ON
  143. BASCOM R-PC%1.BAS,,NUL,/C:4096/O;
  144. ECHO OFF
  145. GOTO MAINEND
  146. :QB2MAIN
  147. ECHO ON
  148. QB R-PC%1.BAS,/C:4096/O;
  149. ECHO OFF
  150. GOTO MAINEND
  151. :QB4MAIN
  152. ECHO ON
  153. BC R-PC%1.BAS,,NUL,/O/C:4096/S
  154. ECHO OFF
  155. GOTO MAINEND
  156. :IBMMAIN
  157. ECHO ON
  158. BASCOM R-PC%1.BAS,,NUL,/C:4096/O/N;
  159. ECHO OFF
  160. :MAINEND
  161. IF TURBO == %3 GOTO TURBO2
  162. ECHO ' If any errors were detected in this compile, terminate this batch job
  163. ECHO ' with Ctrl-Break as something is not correct.  Otherwise .....
  164. pause
  165. :TURBO2
  166. IF QB2.00 == %2 GOTO QB2SUB1
  167. IF QB2.01 == %2 GOTO QB2SUB1
  168. IF QB3.00 == %2 GOTO QB2SUB1
  169. IF QB4.00 == %2 GOTO QB4SUB1
  170. IF IBM2.00 == %2 GOTO IBMSUB1
  171. ECHO ON
  172. BASCOM RBBSSUB1.BAS,,NUL,/X/O;
  173. ECHO OFF
  174. GOTO SUB1END
  175. :QB2SUB1
  176. ECHO ON
  177. QB RBBSSUB1.BAS,/X/O;
  178. ECHO OFF
  179. GOTO SUB1END
  180. :QB4SUB1
  181. ECHO ON
  182. BC RBBSSUB1.BAS,,NUL,/X/O;
  183. ECHO OFF
  184. GOTO SUB1END
  185. :IBMSUB1
  186. ECHO ON
  187. BASCOM RBBSSUB1.BAS,,NUL,/X/O/N;
  188. ECHO OFF
  189. :SUB1END
  190. IF TURBO == %3 GOTO TURBO3
  191. ECHO ' If any errors were detected in this compile, terminate this batch job
  192. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  193. pause
  194. :TURBO3
  195. IF QB2.00 == %2 GOTO QB2SUB2
  196. IF QB2.01 == %2 GOTO QB2SUB2
  197. IF QB3.00 == %2 GOTO QB2SUB2
  198. IF QB4.00 == %2 GOTO QB4SUB2
  199. IF IBM2.00 == %2 GOTO IBMSUB2
  200. ECHO ON
  201. BASCOM RSB2%1.BAS,,NUL,/O;
  202. ECHO OFF
  203. GOTO SUB2END
  204. :QB2SUB2
  205. ECHO ON
  206. QB RSB2%1.BAS,/O;
  207. ECHO OFF
  208. GOTO SUB2END
  209. :QB4SUB2
  210. ECHO ON
  211. BC RSB2%1.BAS,,NUL,/O;
  212. ECHO OFF
  213. GOTO SUB2END
  214. :IBMSUB2
  215. ECHO ON
  216. BASCOM RSB2%1.BAS,,NUL,/O/N;
  217. ECHO OFF
  218. :SUB2END
  219. IF TURBO == %3 GOTO TURBO4
  220. ECHO ' If any errors were detected in this compile, terminate this batch job
  221. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  222. pause
  223. :TURBO4
  224. IF QB2.00 == %2 GOTO QB2SUB3
  225. IF QB2.01 == %2 GOTO QB2SUB3
  226. IF QB3.00 == %2 GOTO QB2SUB3
  227. IF QB4.00 == %2 GOTO QB4SUB3
  228. IF IBM2.00 == %2 GOTO IBMSUB3
  229. ECHO ON
  230. BASCOM RSB3%1.BAS,,NUL,/O;
  231. ECHO OFF
  232. GOTO SUB3END
  233. :QB2SUB3
  234. ECHO ON
  235. QB RSB3%1.BAS,/O;
  236. ECHO OFF
  237. GOTO SUB3END
  238. :QB4SUB3
  239. ECHO ON
  240. BC RSB3%1.BAS,,NUL,/O;
  241. ECHO OFF
  242. GOTO SUB3END
  243. :IBMSUB3
  244. ECHO ON
  245. BASCOM RSB3%1.BAS,,NUL,/O/N;
  246. ECHO OFF
  247. :SUB3END
  248. IF TURBO == %3 GOTO TURBO5
  249. ECHO ' If any errors were detected in this compile, terminate this batch job
  250. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  251. pause
  252. :TURBO5
  253. IF QB4.00 == %2 GOTO QBLINK
  254. IF IBM2.00 == %2 GOTO IBMLINK1
  255. ECHO ON
  256. LINK R-PC%1+RBBSSUB1+RSB2%1+RSB3%1+@LINKFIX3.DAT
  257. ECHO OFF
  258. GOTO DELETER
  259. :QBLINK
  260. ECHO ON
  261. LINK R-PC%1+RBBSSUB1+RSB2%1+RSB3%1+@LINKFIX4.DAT
  262. ECHO OFF
  263. GOTO DELETER
  264. :IBMLINK1
  265. LINK R-PC%1+RBBSSUB1+RSB2%1+IBMCOM+QBARCV2+ANSI+XMODEM+RBBSML+BDRIVEC2+PC-NET+10-NET+RBBSDV+RBBSUTIL,,NUL,;
  266. :DELETER
  267. ECHO OFF
  268. ECHO ' Before using anything created by this .BAT file, make backup copies
  269. ECHO ' of all files that you can not easily re-create.
  270. ECHO ON
  271. :END
  272.